home *** CD-ROM | disk | FTP | other *** search
/ Serving Financial Service…olutions Suite 1994 Fall / Serving Financial Services Solutions Suite 1994 Fall.iso / Apps / FirstClass / Tailor.app / Tailor.data < prev    next >
Text File  |  1994-12-12  |  990b  |  156 lines
  1. %! Adobe packPS Version 2.0 (9)
  2.  
  3. (* Tailor prologue - 2may94 *\n)
  4. print
  5. /TailorDict
  6. where
  7. {
  8. pop
  9. TailorDict
  10. begin
  11. }
  12. if
  13. /TailorGroupBegin
  14. {
  15. TailorEngineScanDict
  16. begin
  17. (<G -1 )
  18. print
  19. dup
  20. length
  21. prtnum
  22. (%stdout)(w)
  23. file
  24. exch
  25. writehexstring
  26. ( >\n)
  27. print
  28. end
  29. }
  30. bind
  31. def
  32. /TailorGroupEnd
  33. {
  34. (<E -1>\n)
  35. print
  36. }
  37. bind
  38. def
  39. /TailorBlockBegin
  40. {
  41. TailorEngineScanDict
  42. begin
  43. prtmatr
  44. prtclip
  45. /BlockIsUntransformed
  46. holdmatrix
  47. currentmatrix
  48. pop
  49. holdmatrix
  50. 0
  51. get
  52. dup
  53. mul
  54. holdmatrix
  55. 1
  56. get
  57. dup
  58. mul
  59. add
  60. 1
  61. sub
  62. abs
  63. 0.001
  64. lt
  65. holdmatrix
  66. 2
  67. get
  68. dup
  69. mul
  70. holdmatrix
  71. 3
  72. get
  73. dup
  74. mul
  75. add
  76. 1
  77. sub
  78. abs
  79. 0.001
  80. lt
  81. and
  82. def
  83. BlockIsUntransformed
  84. {
  85. (<R )
  86. print
  87. {
  88. prtnum
  89. }
  90. forall
  91. {
  92. prtnum
  93. }
  94. forall
  95. dup
  96. length
  97. prtnum
  98. (%stdout)(w)
  99. file
  100. exch
  101. writehexstring
  102. ( >\n)
  103. print
  104. }{
  105. pop
  106. pop
  107. pop
  108. }
  109. ifelse
  110. BlockIsUntransformed
  111. end
  112. 2
  113. dict
  114. begin
  115. {
  116. /show
  117. {pop}
  118. def
  119. /rectfill
  120. {pop
  121. pop
  122. pop
  123. pop}
  124. def
  125. }
  126. if
  127. }
  128. bind
  129. def
  130. /TailorBlockEnd
  131. {
  132. end
  133. }
  134. bind
  135. def
  136. /TailorSetUniformStroke
  137. {
  138. {
  139. (<U 1>\n)
  140. }
  141. {
  142. (<U 0>\n)
  143. }
  144. ifelse
  145. print
  146. }
  147. bind
  148. def
  149. /TailorDict
  150. where
  151. {
  152. pop
  153. end
  154. }
  155. if
  156.